vb System.Tuple<T1,T2,T3,T4,T5>.Item3类(方法)实例源码

Module Example
   Public Sub Main()
      ' Define array of tuples reflecting population change by state, 1990-2000.
      Dim statesData() = 
          { Tuple.Create("California", 29760021, 33871648, 4111627, 13.8), 
            Tuple.Create("Illinois", 11430602, 12419293, 988691, 8.6), 
            Tuple.Create("Washington", 4866692, 5894121, 1027429, 21.1) }
      ' Display the items of each tuple
      Console.WriteLine("{0,-12}{1,18}{2,18}{3,15}{4,12}", "State", "Population 1990", _
                        "Population 2000", "Change", "% Change")
      Console.WriteLine()
      For Each stateData As Tuple(Of String, Integer, Integer, Integer, Double) In statesData
         Console.WriteLine("{0,-12}{1,18:N0}{2,18:N0}{3,15:N0}{4,12:P1}", _
                           stateData.Item1, stateData.Item2, _
                           stateData.Item3, stateData.Item4, stateData.Item5/100)      
      Next                                                                    
   End Sub
End Module